home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 October / EnigmA AMIGA RUN 31 (1998)(G.R. Edizioni)(IT)[!][issue 1998-10].iso / earkit / chat / amicomsys / install < prev    next >
Text File  |  1998-09-22  |  8KB  |  193 lines
  1. ; Install script for AmiComSys 1.17c
  2. ;
  3. ; $VER: AmiComSys-install 1.12 (12.04.98) Håkan Parting
  4. (set highcpu 1)
  5.  
  6. ; ** set system variables **
  7. (set cpu (database "cpu"))
  8. (if (= cpu 68000) (set #cpu 0))
  9. (if (= cpu 68010) (set #cpu 1))
  10. (if (= cpu 68020) (set #cpu 2))
  11. (if (= cpu 68030) (set #cpu 3))
  12. (if (= cpu 68040) (set #cpu 4))
  13. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  14. (set osver (/ (getversion) 65536))
  15.  
  16. ; set texts
  17. (set #nonlist "AmiComSys requires the MUI-costum-class\nNList.mcc version 19+ by Gilles Masson\n\nIt must be installed before AmiComSys\nPlease, download it from Aminet:dev/mui/MCC_NList0.75.lha\nAnd install it with the included installer script\nThen try to install AmiComSys again ...")
  18. (set #nomui "AmiComSys requires Magic User Interface (MUI) 3.8!\n\nYou can find it on Aminet:dev/gui/mui38usr.lha")
  19. (set #wrongcpu0 "This archive does only include a version for 68020 and\nhigher.\n\nYou may download a 68000 version from\nhttp://hem.passagen.se/hparting/amigapa.html\nAt the bottom of the page\n\nInstallation is aborted")
  20. (set #wrongcpu2 "This archive does only include a version for 68000 and\nhigher. A version for 68020 and higher is available\nat http://hem.passagen.se/hparting/amigapa.html\nor\nAminet:comm/net/AmiComSysMUI.lha")
  21. (set #noamarquee "AmiComSys requires AMarquee.library version 47+ by Jeremy Friesner!\n\nPlease download it from Aminet:comm/net/AMarquee1_47.lha")
  22. (set #seldocs "Select which documentation you want to install!")
  23. (set #selscr "Do you want to install the following Arexx-scripts?\nThey may be executed at different occasions.\nIf you already have a costum version of these you\nshould not check the checkboxes infront of the names.")
  24. (set #selscrhelp "The NotifyArexx.amicomsys may be executed when someone is\nconnecting or disconnecting. A simple example is included in this\narchive, but a more versatile one can be found at\nAminet:comm/net/ACS-Notify.lha and is written by Scott Beardwood\nThe MessageArexx.amicomsys script may be executed when someone\nmessage you. There is a simple example script in this archive.\nThese scripts does only work if you have registered AmiComSys.")
  25. (set #readmefile "AmiComSysMUI1.18.readme");
  26. (set #notextinput "If you are using Amiga Kickstart 36, 37 or 38\nAmiComSys requires the costum MUI class\nTextinput.mcc.\nThis class couldn't be found in\nyour LIBS:/mui directory.\n\nPlease download it from\nftp://ftp.vapor.com/misc/textinpt_13.XX.lzx\nwhere XX is 34 or higher.");
  27. (if (= highcpu 0) (set #stringtext "Textinput.mcc © Oliver Wagner\n"))
  28. (if (= highcpu 1) (set #stringtext "BetterString.mcc © Allan Odgaard\n"))
  29. (if (= highcpu 0) (set #cputext "68000 version\n"))
  30. (if (= highcpu 1) (set #cputext "68020+ version\n"))
  31.  
  32.  
  33. (message
  34.      "Welcome to the AmiComSys 1.18 installer!\n\n"
  35.     "You may either use this for a first\n"
  36.     "time install or for updating a former\n"
  37.     "version of AmiComSys.\n\n\n"
  38.     "AmiComSys © Håkan Parting 1997-1998\n"
  39.     #cputext
  40.     "Requires:\n"
  41.     "MUI 3.8+ © Stefan Stuntz\n"
  42.     "AMarquee 1.47+ © Jeremy Friesner\n"
  43.     "NList.mcc 19+ © Gilles Masson\n"
  44.     #stringtext    
  45. )
  46.  
  47. (if (< (exists "MUI:") 2) (exit #nomui) )
  48. (if (exists "LIBS:muimaster.library") (
  49.     (set muiver (/(getversion "LIBS:muimaster.library") 65536))
  50. ))
  51. (if (< muiver 19) ( 
  52.     (exit #nomui)
  53. ))
  54.  
  55. (set muiver 0)
  56. (if (exists "LIBS:MUI/NList.mcc") (
  57.     (set muiver (/(getversion "LIBS:MUI/NList.mcc") 65536))
  58. ))
  59. (if (< muiver 19) ( 
  60.     (exit #nonlist)
  61. ))
  62.  
  63. (set amaver 0)
  64. (if (exists "LIBS:amarquee.library") (
  65.     (set amaver (/(getversion "LIBS:amarquee.library") 65536))
  66. ))
  67. (if (< amaver 47) ( 
  68.     (exit #noamarquee)
  69. ))
  70.  
  71. (set texver 0)
  72. (if (OR (< osver 39) (= highcpu 0) ) (
  73.     (if (exists "LIBS:mui/Textinput.mcc") (
  74.         (set texver (/(getversion "LIBS:mui/Textinput.mcc") 65536))
  75.     ))
  76.     (if (< texver 13) ( 
  77.         (exit #notextinput)
  78.     ))
  79. ))
  80.  
  81. (welcome)
  82. (set cpuVal (askchoice (choices "68000" "68010" "68020" "68030"
  83.                          "68040" "68060"
  84.                     )
  85.                 (prompt "Please, select the processor your Amiga have")
  86.                 (help   "Recommended is to leave it as default")
  87.                   (default #cpu)
  88.           )
  89. )
  90.  
  91. (if (= highcpu 1) (if (< cpuVal 2) (exit #wrongcpu0) ))
  92. (if (= highcpu 0) (if (> cpuVal 1) (message #wrongcpu2) ))
  93.  
  94. (set DefDir (getassign "MIAMI"))
  95. (if (= DefDir "") (set DefDir (getassign "AmiTCP")) )
  96. (if (= DefDir "") (set DefDir (getassign "Inet")) )
  97.  
  98. (set #target (askdir    (prompt "Where do you want to install AmiComSys?\nA directory named AmiComSys will be created.")
  99.                         (help "Select a directory, where you want to install AmiComSys!\nA directory named AmiComSys will be created there.")
  100.                         (default @default-dest)
  101. ))
  102.  
  103. (set instdir (tackon #target "AmiComSys"))
  104. (set @default-dest instdir)
  105.  
  106. (makedir instdir (infos))
  107.  
  108. ; copy over files
  109.  
  110. (copyfiles (source "AmiComSys") (dest instdir) )
  111.  
  112. (if (= (exists (tackon instdir "AmiComSys.info")) 1)
  113. (
  114.     (makedir (tackon instdir "icons") (infos))
  115.     (copyfiles (source "AmiComSys.info") (dest (tackon instdir "icons")))
  116.     (message "The latest icon-file was copied to the icons directory of AmiComSys")
  117. )
  118. )
  119. (if (= (exists (tackon instdir "AmiComSys.info")) 0))
  120.     (copyfiles (source "AmiComSys.info") (dest instdir))
  121.  
  122. ;(tooltype (dest (tackon instdir "AmiComSys")) (settooltype "PROGDIR" instdir) )
  123.  
  124. (copyfiles (source "Contrib") (dest (tackon instdir "Contrib")) (all) (infos))
  125. (copyfiles (source "Register") (dest (tackon instdir "Register")) (all) (infos))
  126.  
  127. (copyfiles (source "Rexx") (pattern "~(NotifyArexx.amicomsys|MessageArexx.amicomsys)") (dest (tackon instdir "Rexx")))
  128.  
  129. (set arscrp (askoptions (choices "NotifyArexx.amicomsys" "MessageArexx.amicomsys")
  130.                     (prompt #selscr)
  131.                     (help #selscrhelp)
  132.                     (default 0)
  133. ))
  134.  
  135. (if (<> arscrp 0) (
  136.     (if (IN arscrp 0) (copyfiles (source "Rexx/NotifyArexx.amicomsys") (dest (tackon instdir "Rexx"))))
  137.     (if (IN arscrp 1) (copyfiles (source "Rexx/MessageArexx.amicomsys") (dest (tackon instdir "Rexx"))))
  138. ))
  139.  
  140. ; install docs
  141. (set docs (askoptions (choices "AmiComSysMUI.guide" "AmiComSys.readme" "BetterString.readme" "Readme.mui")
  142.                 (prompt #seldocs)
  143.                 (help #seldocs)
  144.                 (default 15)
  145. ))
  146.  
  147. (if (<> docs 0) (
  148.     (if (IN docs 1) (copyfiles (source #readmefile) (dest instdir) (newname "AmiComSys.readme") (infos) ) )
  149.     (if (IN docs 0) (
  150.         (set #doctarget (askdir (prompt "Where do you want to install the guide?")
  151.                 (default instdir)
  152.                 (help "Select where to install the documentation.\nRecommended is the AmiComSys directory\nor your HELP: directory.")
  153.         ))
  154.         (copyfiles (source "AmiComSysMUI.guide") (dest #doctarget) (infos))
  155.     ))
  156.     (if (IN docs 2) (
  157.         (copyfiles (source "mui/libs/mui/BetterString.doc") (dest instdir) (infos))
  158.     ))
  159.     (if (IN docs 3) (
  160.         (copyfiles (source "Readme.mui") (dest instdir) (infos))
  161.     ))
  162. ))
  163.  
  164. ( if(= (askbool (prompt "Do you want to copy the AmiComSys executable to\nyour SYS:WBStartup drawer?\nThe tooltype PROGDIR will be set to your AmiComSys\ndirectory, so the program is able to find common files.")
  165.     (help "If you answer Yes, AmiComSys and AmiComSys.info will be\ncopied to your WBStartup drawer.\nThen it will automatically start everytime your Amiga is booted")
  166.     (default 0)
  167.     ) 1) (
  168.         (copyfiles (source (tackon instdir "AmiComSys")) (dest "SYS:WBStartup") (all) (infos))
  169.         (tooltype (dest "SYS:WBStartup/AmiComSys") (settooltype "PROGDIR" instdir) )
  170.     )
  171. )
  172.  
  173. (if (AND (> osver 38) (= highcpu 1)) (
  174. (copylib (prompt #prompt_copy "\n\nBetterString.mcc" )
  175.          (help @copylib-help)
  176.          (confirm "average")
  177.          (source "mui/libs/mui/BetterString.mcc")
  178.          (dest "LIBS:mui/")
  179.          (optional "oknodelete" "force")
  180. )
  181.  
  182. (copylib (prompt #prompt_copy "\n\nBetterString.mcp" )
  183.          (help @copylib-help)
  184.          (confirm "average")
  185.          (source "mui/libs/mui/BetterString.mcp")
  186.          (dest "LIBS:mui/")
  187.          (optional "oknodelete" "force")
  188. )
  189. ))
  190. (message "Thanks for using AmiComSys!\n\n"
  191.         "You should now start AmiComSys and configure it.\nMost important is that you enter a login name\nand your emailaddress.\nThe emailaddress is your unique name on server\nIt will not be visible for any other user.\n"
  192.         "\nPlease support further development by registering. Read guide for more info.")
  193.